PPPPPPPPPPPP LLL IIIIIIII1 RRRRRRRRRRRR TITTTTTTTTTTTITT LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTITT § LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL 

PPP PPP LLL II] RER RRR TTT LLL 

PRP PPP LLL III one RRR TTT LLL 

PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] ROR RRR TTT LLL 
PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] dd TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL III RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PRP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

BPP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

PRP Lil II] AER RRR TTT LLL 
PPP LLL I]] FOR RRR TTT LLL 
PPP LELLLLELLLLLLLL IIIIIII11 RRR PRR TTT LLLLLLLLLLLLLLL 

PPP LELLLLELLLLLLLL IIIIIII11 RAR RRR TTT LLLLLLLLELLLLLLE | 
PPP LLLLLLLLLLLLLLL IIIIII111 RRR RRR TTT LELLLLELLLLLLLL 


ad 
nn 


in 
ix 
13 


Ot oe Ps be bt bb be bt 


bo bs be oe as es | ell onl coed 


PRPPZ PPPPVPP PPP -PPPPPPPPPPPPPPPP? 


osenenes 


227222222 


eet oe 
aid oe) 
et es es 
et ee ee ee et ee ee 
te —— 


dd a 
a 


oo —e 
anaoanaaaana } 
a2Q00000000R 
aa aa 
aa aa 
aa aa 
aa aa | 
aa aa 
aa aa 
QAAAQBAAAAAAaaAaaaGa 
i—Y-Y=¥-Y-1-1-1-1-1-1-1-1- 1) | 
wu ww 
wu wus | 
ww wu wu i 
wus uu wud 
wu wu vere s) 
tuk wu wu 
wuss wus wu 
| 


(ee ee et ee ee 
en ee ee ee ee ed 


ao 
er 
me 
ao 
ww ww 
ww ww 
wu ww wu 
wu wus wu 
ww wu wu 
ww wu wu 
ww wus wu 
ww ww wu 


oo TUTE Tt) 
oo ouoo 
uo oo oo 
uo oo oo 
vuouo oo oo 
ovo ow ou 
ovo uo 
ow uo 
VVII VVVV9NO9 
VVIVII OU VU ONU 
“ww MNWwW 
ww AMMM 
ee ioea) Cn ieml “nn mw nw 
eae ee “nw nw “wn 
et at ae ae at ag Ot gd ng Od ng “ww nw ww 
ee On es ng Rd mn nn un 
Caen — wn nw wn 
con) —e nw nm nn 
Munn wn 
MMnMnm nn 
a 
a ad 
a | ee —— 
ad ab ee “oe 
aa ok ad a ag ad ng ng Od Oy Dd Od Og Od 
a | et a ee et et at a te 
alten rat a “oe 
a at et ae —e 
cee ce ce ed ed ed ed ed ed eed ed) eed eed) nd 
ee ee ee 
aaaa a4 
aaaa a4 
aa aa ad od 
aa. aa ao 
aa aa ao 
aa aa a) 
aa aa a4 
aweeeeeeeeee ees me 
ee ee ee 
acaaaaaaaadaadaa se ee ee ee ee ee 


| **FILE**1D**PLIGETEDI 


F 4 
PLISGETEITEM erst P=1 02:19:3 AX/VMS o V04-00 
LOS 6-SEP=-19 3b 08: :38: 79 LOC IRTL eRe SPLIGETEDI. MAR; 1 _ 
title ot Tsagtelten 
eident /1-002/ 3; Edit wWHM1002 


’MBARARARBASAARAAALASALAAALAALELELESAESE RES ES ESSE RRS SERRE ESAS SERRE EERE RES EEE SESS 
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ALL RIGHTS RESERVED 


® 
:® *® 
-* ® 
*® *® 
:® : ® 
+ THIS SOFTWARE I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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facility: 

VAX/VMS PL1 runtime Library 


abstract: 


This module contains the pl1 runtime routines to get items from 
pli stream file under edit controlled format. 
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author: c. spitz 28-nov-79 
modified: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 


: external definitions 


$deffcb sdefine file control block 
S$defstk tdefine stack frame offsets 
$defstr :define stream block offsets 
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PLISGETEITEM 16-SEP-1984 :19:3 AX/VMS Macro V04-00 Page 
LOS ae 06: 4BiT9 PLIRTL.SRCJPLIGETEDI .MAR; 1 . fy | 
$defdat sdefine operand node data types 
$defgetopt idefine get options block 
$defcvtind sdefine convert indices 
$Srabdef :define rms rab offsets 
S$rmsdef sdefine rms error codes 
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: local data 


rtshare ssharable 


++ 
pli$getertrs 


the pli$getett** routines are called by the compiled code to get items 
from a stream input file under edit directed transmission. each routine 
saves the target item descriptor, calls pli$$getfmt_r6 to get the 

next field based on the format, and then calls to pli$rt_cvrt_r3 to store 
the item in the target. 
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spli$getechar_ré 
inputs: 
r0 - address of element to get 
rl = size/prec of element to get 
r11 - address of stream block 
ap - address of file control block 
outputs: 


none 
side effects: 
rO-r6 are destroyed 


pli$getechar_ré:: 
bisl 
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OC AC O08 C8 #atr_m_recur,fcb_l_attr(ap) ;set recursion flag 
OC AC 04000000 8F CA bicl #atr_m_flttrg,fcb_T_attr(ap) ;clr floating target flag 

E 7D mova ro .ots6) ssave destination 

QO000000'GF 16 jsb rei° get tat ye sget format 
.e ff movq sp)+,r srestore destination 
54 05 C0 addl #cvt_k_dst_char,r4 supdate case index for char dest 

00000000'GF 00 FB calls #0,g*pli$curt co_r3 sconvert it 
Oc AC 08 CA bicl #atr_m_recur,?cb_l_attr(ap) ;clr recursion flag 
05 rsb sreturn 


spli$getevcha_r6 
; inputs: 


r0 - address of element to get 

rl = size/prec of element to get 

rill = address of stream block 

ap - address of file control block 
outputs: 

on 
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none 
side effects: 
rO-r6 are destroyed 
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PLISGETEITEM 16-SEP-1984 02:19:30 VAX/VMS Macro V04-00 Page 3 
tb0s bree 1 obe OF 48:79 CPLIRTL«SREIPLIGETEDI «MAR: 1 ° (1) | 
027 115 pli$getevcha_ré:: | 
OC AC 8 C8 60 7 138 . bist” #atr_m_recur,fcb_l_attr(ap) ;set recursion flag 
OC AC 04000000 8F CA 00 11 bicl fazrim.tletrg, feb Ci attr(ap) iclr floating target flag 
60 Bs 0 118 clrw r0) iclear Length 
7E = 50 D 00 119 movq ror tse? ;save destination 
00009900" Gr 16 0038 120 jsb “pli$Sget fmt_ré get format 
si FE Bit 122 RYE ARR CTdat venasre,  fapuetetcate'In860°%or vcha @ | 
a rat st_vcha,r gupdate case index for vcha dest 
00000000'GF 00 FB 0044 1 . calls #0,g*pli$curt_cg_r3 sconvert it 
Oc AC 08 CA 0048 124 bicl #atr_m_recur,fcb_l_attr(ap) ;clr recursion flag 
05 Oph : 5 rsb zreturn 
$680 139 spli$getebit_ré | FA 
0050 128 ; nputs: FC 
0050 129; r0 = address cf element to get FC 
0050 130; rl = size/prec of element to get FC 
0050 131; r2 - offset of element to get FC 
0050 136 3 ri1 = address of stream block FC 
0050 133; ap - address of file control block FC 
0050 134; outputs: FC 
0050 135; _ fone FC 
0050 136; side effects: FC 
0050 137; r0-r6 are destroyed FC 
0050 138; FC 
0050 139 FC 
0050 140 pli$getebit_ré:: FC 
Oc AC O08 C8 O050 141 bis #atr_m_recur,fcb_l_attr(ap) ;set recursion flag FC 
OC AC 04000000 8F CA 0054 156 bicl #atr_m_flttrg,fcb_T_attr(ap) ;clr floating target flag FC 
7E 50 7D O05SC 14 movq r0,-Tsp) save dest FC 
52 DD OOSF 144 pushl r2__ ssave offset | FC 
00000000'GF 16 0061 145 jsb g*pli$$getfmt_ré iget format FC 
56 BEDO 0067 146 popl r6 srestore offset | FC 
52 8E& 7D OQO6A 147 movq (sp)+,r2 restore dest ; FC 
54 07 CO 006D 148 addl M#cvt_k_dst_bit,r4 gupdate case index for bit dest FC 
00000000'GF 00 FB 0070 149 calls #0,g*pli$cirt_cg_r3 yconvert it FC 
Oc AC 08 CA 0077 150 bicl #atr_m_recur,?cb_l_attr(ap) ;clr recursion flag FC 
05 007B 151 rsb sreturn FC 
007c 3=«: 182 ‘ : FC 
007Cc 3=6153 spl iSgeteabit_ré FC 
0O7C 154 ; nputs: FC 
0o7Cc 86155 ; r0 - address of element to get FC 
OO7C 156; ri - size/prec of element to get FC 
0O07C 86157 ; ri1 - address of stream block FC 
007C 158; ap - address of file control block FC 
007C 159; outputs: Ll 
007C 160 ; none PL 
0O7C 161 ; side effects: | 
007C 166 : r0-r6 are destroyed PL 
007C 163; 
O7C 164 | 
O7C 165 pli$geteabit_ré:: 
Oc AC O08 C8 OO7C 166 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursion flag 
OC AC 04000000 ef cA st 167 bicl #atr_m_flttrg,fcb_T_attr(ap) ;clr floating target flag 
E 0 D 008 168 movq r0,- $e :save destination 
Q0000000°GF 16 bee 4 jsb q.plis etfmt_r6 sget format : 
-. « Ff 91 170 mova sp)+,r . srestore destination : 
54 08 CO 0094 171 addl #cvt_k_dst_abit,r4 supdate case index for abit dest 
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sph TOpetort thre 
nputs: 


r0 - address of element to get 

ri = size/prec of element to get 

r11 - address of stream block 

ap - address of file control block 
outputs: 


6-SEP=-19 PLIRTL.SRCIJPLIGETEDI.MAR;1 ( 
00000000 ' GF 8° FB 97 Ze calls #0,g*pli$cvrt cg.r3 convert it 
oc ac 0 fA 9 17 bicl #atr_m_recur,?cb_l_attr(ap) ;clr recursion flag 
5 A 174 rsb return 
OA 175 
QOOA 176 spl iSpetetixb_ré 
QOA wWeé nputs: 
QOA 178 ; rQ - address of element to get 
QOA 179 ; ri = size/prec of element to get 
OOA 180 ; ri1 = address of stream block 
OOA 181 ; ap - address of file control block 
QOA 136 3 outputs: 
QOA 183 ; none 
OOA 184 ; side effects: 
OOA 185 ; r0-r6 are destroyed 
OOA 186 ; 
QOA a 
pO 188 pli$getefixb_ré:: ; 
OC AC 08 C8 OQOOA 189 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursion flag 
OC AC 04000000 8F CA QOA7 190 bicl #atr_m_flttrg,fcb_T_attr(ap) ;clr floating target flag 
50 7D QOAF 191 movq r0,- Tf save destination 
00000000'GF 16 00B2 135 jsb rei: etfmt_ré6 get format 
52 8&€ 7D 00B8 19 movq sp)+,r srestore destination 
54 01 CO OOBB 194 addl #cvt_k dst_fixb,r4 supdate case index for fixb dest 
QOO00000'GF 00 FB OOBE 195 calls #0,g*pliScurt cg.r3 sconvert it ‘ 
Oc AC O08 CA QOOC5 196 bicl #atr_m_recur,?cb_l_attr(ap) ;clr recursion flag 
05 00C9 197 rsb return 
OOCA 198 ; ; 
OOCA 199 sya segeces Tea Fy 
OOCA 200; nputs: 
OOCA 201 ; r0 - address of element to get 
OOCA 202 ; ri - size/prec of element to get 
QOCA 203 ; riil - address of stream block 
OOCA 204 ; ap - address of file control btock 
OOCA 205; outputs: 
OOCA 206 ; none 
OOCA 207 ; side effects: 
OOCA 208 ; r0-r6 are destroyed 
OOCA 209 ; 
QOOCA 210 : 
QOCA $13 pli$getefixd_ré6:: : 
Oc AC O08 cB O0C \¢ bisl #atr_m_recur,fcb_l_attr(ap) ;set recursion flag 
OC AC 04000000 8F CA OOCE 21 bicl #atr_m_flttrg,fcb_T_attr(ap) :clr floating target flag 
—E 50 7D 00D 214 movg r0,- sp) save destination 
QO000000'GF 16 15 jsb eetis etfmt_r6 sget format  —s—iy 
= & 16 movq sp)+,r sfestore destination ; 
54 03 CO 17 addl #cvt_k_ dst_fixd,r4 supdate case index for fixd dest 
00000000'GF 00 FB 218 calls #0,g*pli$cirt cor sconvert it : 
Oc AC O08 CA 219 bicl #atr_m_recur,fcb_l_attr(ap) ;clr recursion flag 
05 2 ’ rsb sreturn 
4 
: 
28 
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PLISGETEITEM 16-SEP=1 73 AX/VMS Macro V04-00 Page 
tO 66-SEP-19 19b4 0e: 38 +30 tee t IRTL.S SPLIGETEDI. MAR; 1 ° 
0 $ 
0 3 side. effects 
8 5 r0-r6 are "destroyed 
0 6 
0 pli$getefltb_ré:: 
04000008 8F C8 00 bisl~ #<atr_m recur jetr_afittre. - ;set recursion 
OC AC 9 fcb.t ak tr(ap) sand tloating target 
08 51 O7 €1 bbc #7,71,10$ :if g float 
0000008F ef bp ushl a<{5+426> iset max "e float dec prec 
r 
oe | a. 10$ cmpl r1,#53 + ft huge? 
04 15 bleq  20$ tif leq, no, cont 
22 DD ushl #34 iset max huge dec prec 
02. 11 rb 30$ ont 
OF ODD 20$: pushl #15 saet max d float dec prec 
3(no need to bother w/ f/d since 
iconvert routines go to d) 
7E 50 7D 30$: mova sp) zsave destination 
O0000000'GF 16 jsb gras <: s ré iget format 
Pe FR movq restore destination 
SE 04 AE 9E movab 4ts aR tclean dec prec from stack 
54 02 CO addl Wevt. k "Set. fltb, supdate case index for fltb dest 
00000000'GF 00 FB cails #0, aptls $cVrt_c ;convert it 


sacra * 1s CA bicl Wa r_m_recur? roen"5 _m_flttrg>.- ;clr recursion flag 


(rater (ap) sand floating source 
05 rsb return 
-eching tot Sg r6 
nputs: 


r0 - address of element to get 
ri - size/prec of element to get 
rii = address of stream block 
ap - address of file control block 
outputs: 


none 
side effects: 
rO-r6 are destroyed 


pli$getefltd_ré:: 
bist” cate m recur 1atr _m -flttrg>. - ;set recursion 


04000008 8F C8 
OC AC l-attr(ap) sand floating target 
DD pushl 19. zset pew: dec prec 
i oe ee movq r0,-( se) jsave cost ination 
Q0000000'GF 16 jsb {spose 1per. ré6 :get forma 
2 8€ 7D movq sp)+ restore Sot ination 
5E O04 AE 9 movab 4(sp) sclean dec prec from stack 
54 04 C addl aevt k “Ost fltd, ra. supdate case index for fltd dest 
00000000 ' GF 30 FB calls atcha recurt co_r3 sconvert it 
04000008 CA bicl ns r_m_recurtatr_m_flttrg>.- ;clr recursion flag 
OC AC \~attr (ap) sand floating source 
05 rsb sreturn 


popes ee Hee r6 
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: r0 - address of element to get 


K 4 
oo "SSEP=1986 FSB: EBCINTL. SRESPLYCe TEDL man: 


16 § 3 ri = size/prec of otenens % get 
16 : r11 = address of qprece dt ock 
16 3 ; ap - address of file control block 
1? 3 ; ong 
160 91 ; side. effects 
198 3 : r0-r6 ore ‘destroyed 
160 94 pliS$getepic_ré:: 
Oc AC O08 C8 5160 55 . Bist ‘water -m_recur,fcb_l_attr(ap) ;set recursion flag 
OC AC ere 8F A the 3g bicl vate, m -flttrg, fcB_T_attr(ap) pA target flag 
mov ;save destination 
QOO000000'GF 16 bier 98 isb" 9 got Seger tnt, r6 sget format 
52 8—€ 7D 0175 gS movq s restore destination 
54 00 CO 0178 00 addl fevt k_dst pic.r4 tupdate case index for pic dest 
00000000'GF 00 FB 0178 01 calls #0,g*plTi$cvrt cg-f r3 iconvert it 
Oc AC 08 CA 0182 308 bicl #atr _m_recur,?cb_l_attr(ap) ;clr recursion flag 
05 0186 Hi rsb zreturn 
0187 04 
0187 305 end 
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PREVIOUS 
PRN 
RFA 
oR 
ABIT, 
AR 


PLISGETEITEM 
Symbol table 
PLISCVRT_CG 


PLISGETE 
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Psect synopsis 6-SEP=-1984 11:38:1 PLIRTL.SRCJ PLIGETEDI. MAR; 1 (1). 
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! ; Psect synopsis ! 


ee eee eee $ 


PSECT name Allocation PSECT No. Attributes 

. . 00000000 < 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL po ote NOEXE NORD oa: NOVEC BYTE 
SABS$ FFFFFFFC ¢ 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD NOVEC BYTE 
_PLISCODE 60000189 ( 391.) 02 ¢ 2.) PIC USR CON REL LCL SHR’ EXE RD NOWRT NOVEC LONG 


ere ece ence eee te ww ee eee noe n $ 


Phase Page faults CPU Time Elapsed Time 
Initialization Gg 00:00:00.05 00:00:00.35 
Command processing 73 00:00:00.57 00:00:01.75 
Pass 188 00:00:06.92 00:00:16.09 
Symbol table sort 0 BF 004 $8 00:00:01.63 
Pass 2 56 00:00:01.30 eb Se ee 
Ss veel table output 10 00:00:00.07 00:00:00.29 
Peect synopsis output 1 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 337 00:00:09.60 00:00:23.06 


The working set Limit was 900 pages. 
35926 bytes (71 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space allocated to hold 574 non-local and 3 local symbols. 
305 source Lines were read in Pass 1, producing 11 object records in Pass 2. 
pages of virtual memory were used to define 18 macros. 


Macro library name Macros defined 
~$2558DUA28: PLIRTL.OBJJPLIRTMAC MLB; 1 7 
“$255$DUA28: CSYSLIBISTARLE! .MLB;2 7 

TOTALS (all Libraries) 14 


623 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIGETEDI/OBJ=OBJ$:PLIGETEDI MSRC$:PLIGETEDI/UPDATE=(ENH$:PLIGETEDI)+LIB$:PLIRTM 
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